home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 167 / 167.d81 / b.ls code (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  333 lines
  1. 30 poke53371,0:poke788,49
  2. 40 poke56,56:clr:tq=ti
  3. 42 dimbs%(301),bw%(301),z$(10)
  4. 50 dv=peek(186):ifdv<8thendv=11
  5. 60 poke53281,0:poke53280,0:poke53272,23:print"[147]":gosub60000
  6. 70 sys57812"ls code font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 80 sys57812"ls.mouse c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 90 sys57812"ls.codifier",dv,0:poke780,0:poke781,0:poke782,156:sys65493
  9. 100 sys57812"ls.searcher",dv,0:poke780,0:poke781,0:poke782,152:sys65493
  10. 110 dimmn$(30),x1%(30),x2%(30),y1%(30),y2%(30)
  11. 120 ml=192*256:mv=ml+111:pokemv,158:v=53248:pokemv+10,160
  12. 130 bu%=64*256:en=bu%:cd=156*256:sr=152*256
  13. 140 sysml:sysml+18,0,38,0,24
  14. 150 sysml+6:pokev+21,0
  15. 160 pokev+39,7
  16. 170 sp$="                                       "
  17. 180 mn$(1)=" all about the[157][157][157][157][157][157][157][157][157][157][157][157][157]loadstar code"
  18. 190 mn$(2)="  search for[157][157][157][157][157][157][157][157][157][157]a key word"
  19. 200 mn$(3)="   theory of[157][157][157][157][157][157][157][157][157][157][157][157]the bible code"
  20. 210 mn$(4)=" convert/load[157][157][157][157][157][157][157][157]files"
  21. 220 mn$(5)="     drive[157][157][157][157][157][157][157][157]navigation"
  22. 230 mn$(6)="    quit to[157][157][157][157][157][157]basic"
  23. 240 mn$(7)=" source drive"
  24. 250 mn$(8)=" target drive"
  25. 260 mn$(9)="  [146][][157][157]<>"
  26. 270 mn$(10)="  [][157][157]<>"
  27. 280 mn$(11)="  [146][][157][157]<>"
  28. 290 mn$(12)="  [][157][157]<>"
  29. 300 mn$(13)=" disk command  [152]  [155]"
  30. 310 mn$(14)=" main[157][157][157][157]menu"
  31. 320 mn$(16)="   load file[157][157][157][157][157][157][157][157][157]and codify
  32. 330 mn$(17)[178]"    load acmdcmdcmdcmdcmdcmdcmdcmdcmdcodified file
  33. 340 mn$(18)="    save a[157][157][157][157][157][157][157][157][157]codified file
  34. 350 mn$(19)[178]"list     maincmdcmdcmdcmdmenu
  35. 360 mn$(21)=" list to[157][157][157][157][157][157][157]printer"
  36. 370 mn$(22)=" list to[157][157][157][157][157][157]screen"
  37. 380 mn$(23)="   main[157][157][157][157]menu"
  38. 390 mn$(24)="[155] continue"
  39. 400 mn$(25)="  go back
  40. 408 fo$[178]"list\^":bk$[178]"list(NULL)_"
  41. 410 [129]i[178]1[164]25:[135]x1%(i),x2%(i),y1%(i),y2%(i)
  42. 420 [158]ml[170]15,i,x1%(i),x2%(i),y1%(i),y2%(i)
  43. 430 [130]
  44. 440 [131] 2,18,10,13,  21,37,10,13
  45. 450 [131] 2,18,15,18,  21,37,15,18
  46. 460 [131] 2,18,20,23,  21,37,20,23
  47. 470 [131] 2,18,10,13,  21,37,10,13
  48. 480 [131] 2,9,15,18,   11,18,15,18
  49. 490 [131] 21,28,15,18, 30,37,15,18
  50. 500 [131] 2,28,20,23,  30,37,20,23
  51. 510 [131] 18,25,21,21
  52. 520 [131] 2,18,10,13,  21,37,10,13
  53. 530 [131] 2,18,15,18,  21,37,15,18
  54. 540 [131] 2,37,20,23
  55. 550 [131] 1,12,20,23,  14,25,20,23
  56. 560 [131] 27,38,20,23
  57. 570 [131] 2,18,22,24,  21,37,22,24
  58. 580 sd[178]dv:td[178]dv:dq[178]0:dc[178]sd:f$[178]"":fi$[178]""
  59. 582 [139]ti[179]tq[170]200[167]582
  60. 584 [153]"load":[151]53272,31
  61. 590 [158]ml[170]30,1,38,0,8,0,16[170]12
  62. 600 [153]"print#"[163]17)"t h e
  63. 610 print"[174]   [176][192][174] [176][192][174] [174][192][174] [176][192][174] [176][178][174] [176][192][174] [176][192][174]
  64. 620 [153]"(NULL)   (NULL) (NULL) -tan< (NULL) (NULL) /tan^  (NULL)  -tan< -=exp
  65. 630 print"[173][192][189] [173][192][189] [189] [173] [189][192][189] [173][192][189]  [177]  [189] [173] [189][173][192][189]
  66. 640 [153][163]10)"ortantan^ ortantan^ ^tantan^ ortantan^
  67. 650 printtab(10)"[221]    [221]  [221] [221]  [221] [171][192][179]
  68. 660 [153][163]10)"/tantanexp /tantanexp exptantanexp /tantanexp
  69. 670 c=15
  70. 680 fori=1to6
  71. 690 sysml+30,x1%(i),x2%(i),y1%(i),y2%(i),32,16+15
  72. 700 poke646,c:sysml+12,x1%(i)+1,y1%(i)+1,mn$(i)
  73. 710 next
  74. 720 sysml+39,240
  75. 730 pokemv+1,6:pokev+21,1
  76. 740 :
  77. 750 :rem main menu loop
  78. 760 :
  79. 770 sysml+9
  80. 780 ifcr%=0then770
  81. 790 oncr%gosub1680,850,1780,1880,2520,2980
  82. 800 sysml+42,240
  83. 810 goto730
  84. 820 :
  85. 830 :rem search
  86. 840 :
  87. 850 sysml+30,0,39,10,24,32,0
  88. 860 sysml+30,5,34,10,18,160,16+15
  89. 870 sysml+12,10,12,"[155]file    : "+mid$(fi$,3)
  90. 880 sysml+12,10,13,"[155]keyword : [146]          "
  91. 890 sysml+12,10,14,"matches :          "
  92. 900 sysml+12,10,15,"start   :        "
  93. 910 sysml+12,10,16,"distance:        "
  94. 920 sysml+12,20,13,""
  95. 930 pokev+21,0:poke198,0:sysml+51,1,1,9:pokemv+1,14
  96. 932 le%=len(w$):ifle%=0thenreturn
  97. 942 syssr,w$,bu%,en
  98. 944 sp%=peek(sr+5)+peek(sr+6)*256:ht%=peek(sr+3)+peek(sr+4)*256
  99. 945 ifht%=300andsp%=0thensp%=300
  100. 946 ifht%-sp%thenforjj=sp%+1toht%:bs%(jj)=en-(bs%(jj)-bu%):next
  101. 948 sysml+39,232
  102. 950 sysml+42,232
  103. 960 print"[155]";
  104. 1180 fori=21to23:sysml+30,x1%(i),x2%(i),y1%(i),y2%(i),160,16+15
  105. 1190 sysml+12,x1%(i)+1,y1%(i)+1,mn$(i)
  106. 1200 next
  107. 1210 pokemv+1,23:pokev+21,1
  108. 1220 sysml+9
  109. 1222 ifl2%thenifcy%=13thenif(cx%>19andcx%<29)then880
  110. 1230 ifcr%<21orcr%>23then1220
  111. 1240 ifcr%=23thenreturn
  112. 1250 ifcr%=22then1480
  113. 1260 :
  114. 1270 :rem printer
  115. 1280 :
  116. 1290 pokev+21,0
  117. 1292 sysml+30,0,39,10,24,32,0
  118. 1300 sysml+30,8,32,10,14,160,16+15
  119. 1310 sysml+12,12,12,"printing...
  120. 1320 [159]4,4,0:[160]4:[139]st[178][171]128[167]950
  121. 1330 [159]4,4,0
  122. 1332 [152]4,,,"file: "fi$,"keyword: "w$:[152]4
  123. 1340 [152]4,,;:[129]i[178]0[164]2:[152]4,"  match  start  dist.  ";:[130]:[152]4
  124. 1350 [152]4,,;:[129]i[178]0[164]2:[152]4,"  -----  -----  -----  ";:[130]:[152]4
  125. 1360 [152]4,,;:[129]i[178]1[164]ht%
  126. 1370 [152]4,"  ";i;[200](sp$,5[171][195]([196](i)));
  127. 1380 [152]4,bs%(i)[171]bu%;[200](sp$,6[171][195]([196](bs%(i)[171]bu%)));
  128. 1390 [152]4,bw%(i);[200](sp$,7[171][195]([196](bw%(i))));
  129. 1400 [139]i[173]3[178][181](i[173]3)[167][152]4:[152]4,,;
  130. 1410 [139]i[178]162[167][129]j[178]0[164]7:[152]4:[130]:[152]4,,;
  131. 1420 [130]:[152]4
  132. 1430 [160]4:[151]186,dv
  133. 1440 [137]950
  134. 1450 :
  135. 1460 :[143] screen
  136. 1470 :
  137. 1480 [153]"listloadmatch  start  dist. match  start  dist.wait"
  138. 1490 i[178]0
  139. 1500 i[178]i[170]1:[139]i[177]ht%[167]1550
  140. 1502 ii[178]i[175]1
  141. 1504 [153]"";:[139]i[177]sp%[167][153]"cont";
  142. 1510 [153][163]0[171]20[172](ii[178]0))i;
  143. 1512 [153][163]6[171]20[172](ii[178]0))bs%(i)[171]bu%;
  144. 1514 [153][163]13[171]20[172](ii[178]0))bw%(i);
  145. 1520 [139]ii[178]0[167][153]
  146. 1540 [139][194](214)[179]21[167]1500
  147. 1542 [153]"list";
  148. 1550 [129]j[178]0[164]1
  149. 1560 [158]ml[170]30,x1%(24[170]j),x2%(24[170]j),y1%(24[170]j),y2%(24[170]j),160,16[170]15
  150. 1570 [158]ml[170]12,x1%(24[170]j)[170]3,y1%(24[170]j)[170]1,mn$(24[170]j)
  151. 1580 [130]
  152. 1590 [151]mv[170]1,25
  153. 1600 [158]ml[170]9
  154. 1610 [139]cr%[179]24[167]1600
  155. 1612 [139]cr%[178]25[167]950
  156. 1618 [158]ml[170]30,0,39,1,21,32,0:[153]""
  157. 1620 [139]cr%[178]24[175]i[170]1[179]ht%[167]1500
  158. 1622 [139]cr%[178]24[167]1490
  159. 1650 :
  160. 1660 :[143] ls code
  161. 1670 :
  162. 1680 [158]ml[170]30,0,39,10,24,32,0
  163. 1688 [151]v[170]21,0
  164. 1690 [158]ml[170]54,"lsc.ls code",sd,170[172]256
  165. 1692 [151]v[170]21,1
  166. 1700 [139][200](e$,2)[178]"00"[167]1720
  167. 1710 [158]ml[170]30,8,32,15,16,160,16[170]15:[158]ml[170]12,10,16,e$:[158]ml[170]24,200:[142]
  168. 1720 [151]f%[170]2[174]16,0
  169. 1730 [158]ml[170]63,0,39,10,23,15,12,170[172]256,"instructions to","the loadstar code"
  170. 1740 [142]
  171. 1750 :
  172. 1760 :[143] bible code
  173. 1770 :
  174. 1780 [158]ml[170]30,0,39,10,24,32,0
  175. 1788 [151]v[170]21,0
  176. 1790 [158]ml[170]54,"lsc.bible",sd,170[172]256
  177. 1792 [151]v[170]21,1
  178. 1800 [139][200](e$,2)[178]"00"[167]1820
  179. 1810 [158]ml[170]30,8,32,15,16,160,16[170]15:[158]ml[170]12,10,16,e$:[158]ml[170]24,200:[142]
  180. 1820 [151]f%[170]2[174]16,0
  181. 1830 [158]ml[170]63,0,39,10,23,15,12,170[172]256,"theory of","the bible code"
  182. 1840 [142]
  183. 1850 :
  184. 1860 :[143] load/codify screen
  185. 1870 :
  186. 1880 [158]ml[170]30,0,39,10,24,32,0
  187. 1890 [129]i[178]16[164]19:[151]198,0
  188. 1900 [158]ml[170]30,x1%(i),x2%(i),y1%(i),y2%(i),160,16[170]15
  189. 1910 [151]646,15:[158]ml[170]12,x1%(i)[170]1,y1%(i)[170]1,mn$(i)
  190. 1920 [130]
  191. 1930 [158]ml[170]30,x1%(20),x2%(20),y1%(20),y2%(20),160,16[170]15
  192. 1940 [158]ml[170]12,x1%(20)[170]2,y1%(20)[170]1,"file in memory: "[170]fi$
  193. 1950 [158]ml[170]12,x1%(20)[170]4,y1%(20)[170]2,[196]([181](n%[173]256)[171](n%[179][177]0))[170]" pages"
  194. 1960 [158]ml[170]12,x1%(20)[170]17,y1%(20)[170]2,""[170][196](bu%)[170]" to"[170][196](en)
  195. 1970 [151]mv[170]1,19:[158]ml[170]39,232
  196. 1980 [151]v[170]21,1
  197. 1990 [158]ml[170]9
  198. 2000 [139]cr%[179]16[176]cr%[177]19[167]1980
  199. 2010 [145]cr%[171]15[137]2050,2240,2350,2480
  200. 2020 :
  201. 2030 :[143] load n codify
  202. 2040 :
  203. 2050 [158]ml[170]30,0,39,10,24,32,0
  204. 2052 [151]v[170]21,0
  205. 2060 [158]ml[170]60,"$:*",sd,208[172]256
  206. 2062 [151]v[170]21,1
  207. 2070 [158]ml[170]63,5,255,10,24,15,7,208[172]256,t$,b$
  208. 2080 [139]w$[178]""[16